home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1998 March / Macworld (1998-03) (Disk 1).dmg / Shareware World / Info / For Developers / GhostScript 5.10 / MacGS-510 / files / gs_kanji.ps < prev    next >
Text File  |  1996-09-03  |  4KB  |  160 lines
  1. %    Copyright (C) 1994, 1995, 1996 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This file is part of Aladdin Ghostscript.
  4. % 
  5. % Aladdin Ghostscript is distributed with NO WARRANTY OF ANY KIND.  No author
  6. % or distributor accepts any responsibility for the consequences of using it,
  7. % or for whether it serves any particular purpose or works at all, unless he
  8. % or she says so in writing.  Refer to the Aladdin Ghostscript Free Public
  9. % License (the "License") for full details.
  10. % 
  11. % Every copy of Aladdin Ghostscript must include a copy of the License,
  12. % normally in a plain ASCII text file named PUBLIC.  The License grants you
  13. % the right to copy, modify and redistribute Aladdin Ghostscript, but only
  14. % under certain conditions described in the License.  Among other things, the
  15. % License requires that the copyright notice and this notice be preserved on
  16. % all copies.
  17.  
  18. % Scaffolding for Kanji fonts.  This is based on the Wadalab free font
  19. % from the University of Tokyo; it may not be appropriate for other
  20. % Kanji fonts.
  21.  
  22. /currentglobal where
  23.  { pop currentglobal { setglobal } true setglobal }
  24.  { { } }
  25. ifelse
  26.  
  27. % Define the encoding for the root font.
  28.  
  29. /KanjiEncoding
  30. % \x00
  31.     0    0    0    0    0    0    0    0
  32.     0    0    0    0    0    0    0    0
  33.     0    0    0    0    0    0    0    0
  34.     0    0    0    0    0    0    0    0
  35. % \x20
  36.     0    1    2    3    4    5    6    7
  37.     8    0    0    0    0    0    0    0
  38.     9    10    11    12    13    14    15    16
  39.     17    18    19    20    21    22    23    24
  40. % \x40
  41.     25    26    27    28    29    30    31    32
  42.     33    34    35    36    37    38    39    40
  43.     41    42    43    44    45    46    47    48
  44.     49    50    51    52    53    54    55    56
  45. % \x60
  46.     57    58    59    60    61    62    63    64
  47.     65    66    67    68    69    70    71    72
  48.     73    74    75    76    77    0    0    0
  49.     0    0    0    0    0    0    0    0
  50. % \x80
  51.     0    0    0    0    0    0    0    0
  52.     0    0    0    0    0    0    0    0
  53.     0    0    0    0    0    0    0    0
  54.     0    0    0    0    0    0    0    0
  55. % \xA0
  56.     0    1    2    3    4    5    6    7
  57.     8    0    0    0    0    0    0    0
  58.     9    10    11    12    13    14    15    16
  59.     17    18    19    20    21    22    23    24
  60. % \xC0
  61.     25    26    27    28    29    30    31    32
  62.     33    34    35    36    37    38    39    40
  63.     41    42    43    44    45    46    47    48
  64.     49    50    51    52    53    54    55    56
  65. % \xE0
  66.     57    58    59    60    61    62    63    64
  67.     65    66    67    68    69    70    71    72
  68.     73    74    75    76    77    0    0    0
  69.     0    0    0    0    0    0    0    0
  70. 256 packedarray def
  71.  
  72. % Define a stub for the base font encoding.
  73.  
  74.   /KanjiSubEncoding { /KanjiSubEncoding .findencoding } bind def
  75. %% Replace 3 (gs_ksb_e.ps)
  76.   EncodingDirectory /KanjiSubEncoding
  77.    { (gs_ksb_e.ps) //systemdict begin runlibfile KanjiSubEncoding end }
  78.   bind put
  79.  
  80. % Support procedures and data.
  81.  
  82. /T1FontInfo 8 dict begin
  83.   /version (001.001) readonly def
  84.   /FullName (KanjiBase) readonly def
  85.   /FamilyName (KanjiBase) readonly def
  86.   /Weight (Medium) readonly def
  87.   /ItalicAngle 0 def
  88.   /isFixedPitch false def
  89.   /UnderlinePosition 0 def
  90.   /UnderlineThickness 0 def
  91. currentdict end readonly def
  92.  
  93. /T1NF            % <fontname> T1NF <font>
  94. {
  95. 20 dict begin
  96.   /FontName exch def
  97.   /FontType 1 def
  98.   /FontInfo T1FontInfo def
  99.   /FontMatrix [.001 0 0 .001 0 0] def
  100.   /FontBBox [0 0 1000 1000] def
  101.   /Encoding KanjiSubEncoding def
  102.   /CharStrings 150 dict def
  103.   /PaintType 0 def
  104.   /Private 2 dict def
  105.   Private begin
  106.     /BlueValues [] def
  107.     /password 5839 def
  108.   end
  109. FontName currentdict end definefont
  110. } def
  111.  
  112. /T0NF            % <fontname> T0NF <font>
  113. {
  114. 20 dict begin
  115.   /FontName exch def
  116.   /FDepVector exch def
  117.   /FontType 0 def
  118.   /FontMatrix [1 0 0 1 0 0] def
  119.   /FMapType 2 def
  120.   /Encoding KanjiEncoding def
  121. FontName currentdict end definefont
  122. } def
  123.  
  124. % Define the composite font and all the base fonts.
  125.  
  126. /CompNF            % <fontname> CompNF <font>
  127. {
  128. /newname1 exch def
  129. newname1 dup length string cvs /str exch def
  130. str length /len exch def
  131. /fdepvector 78 array def 
  132. /j 1 def
  133. 16#21 1 16#74 {
  134. /i exch def
  135. KanjiEncoding i get 0 gt {
  136. len 4 add string /newstr exch def
  137. newstr 0 str putinterval
  138. newstr len (.r) putinterval
  139. newstr len 2 add  i 16 2 string cvrs putinterval
  140. newstr cvn /newlit exch def
  141. newlit T1NF /newfont exch def
  142. fdepvector j newfont put
  143. /j j 1 add def
  144. } if
  145. } for
  146. fdepvector 0 fdepvector 1 get put
  147. /j 0 def
  148. fdepvector newname1 T0NF
  149. } def
  150.  
  151. % Define an individual character in a composite font.
  152. /CompD            % <charstring> <(HL)> CompD -
  153.  { currentfont /Encoding get 1 index 0 get get    % FDepVector index
  154.    currentfont /FDepVector get exch get        % base font
  155.    dup /Encoding get 3 -1 roll 1 get get    % base font character name
  156.    exch /CharStrings get exch 3 -1 roll put
  157.  } bind def
  158.  
  159. exec
  160.